home *** CD-ROM | disk | FTP | other *** search
/ The Big Day - Work Smarter - Learn How / The Big Day - Work Smarter - Learn How (Microsoft).BIN / MSN / SIGNUP / MSN51.hta next >
Text File  |  2000-02-23  |  59KB  |  1,700 lines
  1. <HTML>
  2. <HEAD>
  3. <HTA:APPLICATION 
  4. ID="oSignup" 
  5. APPLICATIONNAME="MSN 5.1 Signup"
  6. CAPTION="yes" 
  7. SHOWINTASKBAR="yes"
  8. SINGLEINSTANCE="yes" 
  9. SYSMENU="yes"
  10. WINDOWSTATE="maximize" 
  11. BORDER="dialog"
  12. ICON="./images/MSNLogo.ico"
  13. MAXIMIZEBUTTON="no"
  14. MINIMIZEBUTTON="no"
  15. >
  16.  
  17. <META name=VI60_defaultClientScript content=VBScript>
  18. <style>
  19. BODY
  20.     {
  21.     FONT-FAMILY: Verdana, Arial, Helvetica, 'MS Sans Serif';
  22.     background-repeat:no-repeat;
  23.     }
  24. .WelcomePageTitle
  25.     {
  26.     COLOR: #FFFFFF;
  27.     FONT-FAMILY: Arial Narrow, Verdana, Arial, Helvetica, 'MS Sans Serif';
  28.     FONT-SIZE: 15pt;
  29.     FONT-STYLE: italic;
  30.     FONT-WEIGHT: bold;
  31.     }
  32. .10ptArialBlue
  33.     {
  34.     FONT-FAMILY: Arial;
  35.     FONT-SIZE: 10pt;
  36.     COLOR: #2F3FAA;
  37.     }
  38. .nexttext
  39.     {
  40.     FONT-FAMILY: Arial;
  41.     FONT-SIZE: 10pt;
  42.     COLOR: #2F3FAA;
  43.     position:absolute;
  44.     left:320;
  45.     top:385;
  46.     }
  47.  .PageTitle
  48.     {
  49.         COLOR: #ffffff;
  50.         FONT-FAMILY: arial narrow;
  51.         FONT-SIZE: 15pt;
  52.         FONT-WEIGHT: bold;
  53.         LEFT: -10px;
  54.         POSITION: relative;
  55.         TOP: 20px
  56.     }
  57. .headTable
  58.     {
  59.         HEIGHT: 70px;
  60.         LEFT: 0px;
  61.         MARGIN-RIGHT: 5px;
  62.         POSITION: relative;
  63.         TOP: 0px;
  64.         WIDTH: 100%
  65.     }
  66. .firstText
  67.     {
  68.         COLOR: #2f3faa;
  69.         FONT-FAMILY: Arial;
  70.         FONT-SIZE: 13pt;
  71.         FONT-WEIGHT: bolder;
  72.     }
  73. .msnialogo
  74. {
  75.     position:absolute;
  76.     left:-12px;
  77.     top:352px;
  78. }
  79. .navCancel
  80. {
  81. position:absolute;
  82. HEIGHT: 51px; 
  83. LEFT: -10px; 
  84. POSITION: absolute; 
  85. TOP: 404px; 
  86. WIDTH: 113px;
  87. text-family:Arial;
  88. color:#FF5f55;
  89. border:0;
  90. background:'url(images/cl_loc_n.gif)';
  91. cursor:hand;
  92. }
  93.  
  94. .navBack
  95. {
  96. position:absolute;
  97. HEIGHT: 51px; 
  98. LEFT: 310px; 
  99. POSITION: absolute; 
  100. TOP: 404px; 
  101. WIDTH: 113px;
  102. border:0;
  103. background:'url(images/bk_loc_n.gif)';
  104. cursor:hand;
  105. }
  106. .navNext
  107. {
  108. position:absolute;
  109. HEIGHT: 51px; 
  110. LEFT: 432px; 
  111. POSITION: absolute; 
  112. TOP: 404px; 
  113. WIDTH: 113px;
  114. border:0;
  115. background:'url(images/nx_loc_n.gif)';
  116. cursor:hand;
  117. }
  118. .lnavCancel
  119. {
  120. position:relative;
  121. text-family:Arial;
  122. color:#FF5f55;
  123. border:0;
  124. width:113;
  125. height:51;
  126. background:'url(images/cl_loc_n.gif)'
  127. }
  128.  
  129. .lnavBack
  130. {
  131. position:relative;
  132. border:0;
  133. width:113;
  134. height:51;
  135. background:'url(images/bk_loc_n.gif)'
  136. }
  137.  
  138. .lnavNext
  139. {
  140. position:relative;
  141. border:0;
  142. width:113;
  143. height:51;
  144. background:'url(images/nx_loc_n.gif)'
  145. }
  146. .lPageTitle
  147. {
  148. COLOR: #2f3faa;
  149. FONT-FAMILY: arial narrow;
  150. FONT-SIZE: 16pt;
  151. FONT-WEIGHT: normal;
  152. LEFT: 0px;
  153. POSITION: relative;
  154. TOP: 18px;
  155. }
  156. </style>
  157.  
  158. <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
  159. <!--
  160.  
  161. Sub window_onresize
  162.     CenterWindow
  163. End Sub
  164.  
  165. -->
  166. </SCRIPT>
  167. </head>
  168.  
  169. <TITLE>MSN 5.1 Signup</TITLE>
  170. <link rel=stylesheet type="text/css" href="">
  171. <BODY tabindex="-1" background="" bgcolor="#ffffff" Language="VBScript" onload="LoadEvent" onunload="UnloadEvent" scroll=no topmargin=0 leftmargin=0 rightmargin=0 >
  172.  
  173. <!-- CREATE OBJECTS -->
  174. <OBJECT classid=clsid:9C9B801B-0306-11D3-AA1E-00C04FD929FF height=0 id=oDial width=0></OBJECT>
  175. <OBJECT classid=clsid:9C9B801E-0306-11D3-AA1E-00C04FD929FF height=0 id=oDialParams width=0></OBJECT>
  176. <object classid="clsid:33C9CD44-1EB4-41BC-BDAE-67200C31CC01" data="data:application/x-oleobject;base64,RM3JM7QevEG9rmcgDDHMAQADAADYEwAA2BMAAA==" id="MSNRegKey1" style="display:none"></object>
  177.  
  178. <OBJECT classid=clsid:2936F81B-FA12-48B7-8658-E9F82C09BD9A 
  179. data=data:application/x-oleobject;base64,G/g2KRL6t0iGWOn4LAm9mgADAAAaAAAAGgAAAA== 
  180. height=0 id=oIniMinip width=0></OBJECT>
  181.  
  182. <SCRIPT LANGUAGE="VBScript">
  183. 'INITALIZE SCRIPT
  184. '\/\/\/\/\/\/\/\/
  185. OPTION EXPLICIT
  186.     dim CountryCode
  187.     dim VarMSNServerHandshake
  188.     dim LargeFont
  189.     dim LanOrModem
  190.     LanOrModem = "MODEM"
  191.     dim DialPulseTone
  192.     DialPulseTone = "T"
  193.     dim LanProgBarKill
  194.     dim LanProgCounter
  195.     LanProgCounter = 0
  196.     dim g_bDialBackSelected
  197.     Dim g_bKillDialConnect
  198.     Dim g_bResizing
  199.     dim g_UnloadFromCancel
  200.     dim g_iUnsuccessAttepts
  201.     dim g_bManualDisconnect
  202.     dim g_iSvrTimer
  203.     dim g_sDialOutNumber
  204.     dim g_CallWaitCode
  205.     Dim g_sServerTimeOutMessage
  206.     Dim g_iConnTimer,g_iLanTimer,g_iLanNav
  207.     dim g_bCancelClicked
  208.     'Made the server timeout message editable from server if need to.
  209.     g_sServerTimeOutMessage = "The server seem to be taking a long time to respond, would you like to keep waiting for the server?"
  210.     g_iConnTimer = 0
  211.     g_iSvrTimer = 0
  212.     g_iLanTimer = 0
  213.     g_iLanNav = 0
  214.     g_bCancelClicked = false
  215.     g_bManualDisconnect = false
  216.     g_iUnsuccessAttepts = 0
  217.     g_bDialBackSelected = False
  218.     g_bKillDialConnect = False
  219.     g_bResizing = False
  220.     '// Bubble info content //
  221.     dim ConnMessageLAN
  222.     ConnMessageLAN = "MSN Internet Access is now connecting you to the Internet.  Please wait..."
  223.     dim ConnMessageModem
  224.     ConnMessageModem = "MSN Internet Access is now making a free phone call to the Internet via your modem. <br>Please wait..."
  225.     dim MoreInfo1
  226.     MoreInfo1 = "Certain calling services can affect the way youÆre connected to the Internet. For example, if you have <b>Call Waiting</b> and someone calls while youÆre online, your Internet connection will be interrupted. In this case, you might want to temporarily suspend <b>Call Waiting</b> while youÆre online."
  227.     MoreInfo1 = MoreInfo1 & "<br><br>If you must dial a code number to get an <b>outside line</b>, your modem will also need to dial that number. For example, you might dial 9-1-800-555-0100 in order to reach 1-800-555-0100. <br><br> If you are unsure of the codes to use, please contact your phone company."
  228.     dim MoreInfo2
  229.     MoreInfo2 = "If you must dial a code number to get an outside line, your modem will also need to dial that number.  For example, you might dial 9-1-800-555-0100 in order to reach 1-800-555-0100.  If you are unsure of the code to use, please contact your phone company."
  230.     dim MoreInfo3
  231.     MoreInfo3 = "Select the type of dialing your phone line uses: pulse or tone.  Older rotary-dial phones used pulse dialing.  Most phones now use tone dialing.  If you can hear tones when you dial a number, you have tone dialing.  If you hear clicking sounds, you have pulse dialing."
  232.     dim MoreInfo4
  233.     MoreInfo4 =  "A device that enables a computer to connect to the Internet over telephone lines. A modem can be installed inside your computer or attached by a cable."
  234.     dim MoreInfo5
  235.     MoreInfo5 = "A network of computers, usually all located within a single building or group of buildings."
  236.     dim DeviceSelWildInfo
  237.     CenterWindow()
  238.     
  239. '/// LOAD EVENT ///
  240.     SUB LoadEvent    
  241.         
  242.         TestText.style.display = "inline"
  243.         if TestText.offsetHeight > 20 then
  244.             SetLargeFont(true)
  245.         else
  246.             SetLargeFont(false)
  247.         end if
  248.         TestText.style.display = "none"
  249.         InitIniMinip()
  250.         divWelcome.style.display = ""
  251.         WelcomeCancelButton.focus
  252.         GetDevices()
  253.         VarMSNServerHandshake = 0
  254.         CountryCode = 1
  255.     END SUB
  256.     
  257.     Sub SetLargeFont(bSet)
  258.     
  259.         if bSet then
  260.             LargeFont="true"
  261.             document.body.scroll = "yes"
  262.             document.body.style.background = ""
  263.             dim sSpan, sButton, sImg
  264.             for each sSpan in document.all.tags("SPAN") 
  265.                 if (sSpan.className = "PageTitle") then
  266.                     sSpan.className = "lPageTitle"
  267.                 end if
  268.                 if (sSpan.className = "nexttext") then
  269.                     sSpan.style.display = "none"
  270.                 end if
  271.             next
  272.             for each sButton in document.all.tags("BUTTON")
  273.                 if (sButton.className = "navCancel") then
  274.                     sButton.className = "lnavCancel"
  275.                 elseif (sButton.className = "navBack") then
  276.                     sButton.className = "lnavBack"
  277.                 elseif (sButton.className = "navNext") then
  278.                     sButton.className = "lnavNext"
  279.                 end if
  280.             next
  281.             for each sButton in document.all.tags("SPAN")
  282.                 if (sButton.className = "navCancel") then
  283.                     sButton.className = "lnavCancel"
  284.                 elseif (sButton.className = "navBack") then
  285.                     sButton.className = "lnavBack"
  286.                 elseif (sButton.className = "navNext") then
  287.                     sButton.className = "lnavNext"
  288.                 end if
  289.             next
  290.             MSNIAButterfly.style.display = "none"
  291.         else
  292.             LargeFont="False"
  293.             document.body.style.background = "url(images/back_51.gif)"
  294.             MSNIAButterfly.style.display = ""
  295.         end if    
  296.     end sub
  297. '// CREATE ini FILE OBJECT ///
  298.     SUB InitIniMinip
  299.         dim LocStr1
  300.         LocStr1 = lcase(window.location.pathname)
  301.         LocStr1 = URLUnEncode(LocStr1)
  302.         LocStr1 = Replace (LocStr1, "\msn51.hta", "", 1)